home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / GF.LSP < prev    next >
Text File  |  1992-03-14  |  765b  |  23 lines
  1. ;Call a new drawing up from acad, must specify full path name
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (SETQ nn(GETSTRING "\nEnter name of drawing to call into design session: "))
  7. (setq ss(getstring "\nDo you want to save current session: <Y>"))
  8.     (if(= ss "Y")(setq ss "end"))
  9.     (if(= ss "y")(setq ss "end"))
  10.     (if(= ss nil)(SETQ ss "end"))
  11.     (if(= ss "")(SETQ ss "end"))
  12.     (if(= ss "n")(SETQ ss "quit y"))
  13.     (if(= ss "N")(SETQ ss "quit y"))
  14. (setq scr "get_it.scr")
  15. (setq txt(open scr "w"))
  16. (setq start "\n2")
  17. (setq fnme(strcat "\n" nn))
  18. (princ ss txt)
  19. (princ start txt)
  20. (princ fnme txt)
  21. (princ "\n" txt)
  22. (close txt)
  23. (command"script""get_it")